home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / malen mit joy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  247b  |  11 lines
  1. 5 print"<shift/clr>";:x=0:y=0
  2. 6 print"[147]"
  3. 10 p=peek(56320):if p=127then10
  4. 20 a$=""
  5. 30 if(pand1)=0andy>0thena$="[194]":y=y-1
  6. 40 if(pand2)=0andy<24thena$="[194]":y=y+1
  7. 50 if(pand4)=0andx>0thena$="[192]":x=x-1
  8. 60 if(pand8)=0andx<39thena$="[192]":x=x+1
  9. 70 ifa$=<>""thenpoke211,x:poke214,y:sys58640:printa$;:
  10. 80 goto10
  11.